home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1985-03-16 | 1.2 KB | 50 lines |
- 1 CLS:PRINT:PRINT:PRINT " A C E Y - D E U C E Y G A M E"
- 11 PRINT "THIS IS A CARD GAME SIMILAR TO ACEY-DEUCEY WITH"
- 21 PRINT "THE EXCEPTION THAT NO SPLITS ARE ALLOWED. THE PLAY"
- 31 PRINT "IS DEALT TWO CARDS. HE MUST THEN BET ON IF THE NEXT"
- 41 PRINT "CARD DEALT WILL LIE NUMERICALLY BETWEEN THE FIRST"
- 51 PRINT "TWO. ACES CAN COUNT AS EITHER 1 OR 14"
- 61 B=1000
- 71 INPUT "PRESS ENTER TO CONTINUE";A$:CLS
- 81 INPUT "PRESS ENTER TO DEAL THE FIRST TWO CARDS";A$
- 91 T=O
- 101 A=INT(RND*15):IF A=1 THEN 101:IF A=0 THEN GOTO 101
- 111 IF A>10 GOTO 171
- 121 REM
- 131 PRINT A:PRINT
- 141 IF T=0 GOTO 211
- 151 IF T=1 GOTO 231
- 161 GOTO 301
- 171 IF A=11 THEN PRINT "JACK"
- 181 IF A=12 THEN PRINT "QUEEN"
- 191 IF A=13 THEN PRINT "KING"
- 201 IF A=14 THEN PRINT "ACE":IF T=2 THEN GOSUB 411
- 211 F=A
- 221 T=T+1:GOTO 101
- 231 S=A:IF S=0 THEN GOTO 101
- 241 PRINT "YOUR ACCOUNT STANDS AT $";B
- 251 INPUT "HOW MUCH DO YOU BET";C
- 261 IF C>B GOTO 241
- 271 IF C>0 GOTO 291
- 281 CLS:PRINT "NEXT HAND...":GOTO 81
- 291 T=T+1:GOTO 101
- 301 Q=A
- 311 IF F<S GOTO 361
- 321 IF Q>S AND Q<F THEN 381
- 331 PRINT "NO!! YOU LOSE!!":B=B-C
- 341 IF B<=0 GOTO 451
- 351 INPUT "PRESS ENTER TO CONTINUE";A$:GOTO 281
- 361 IF Q>F AND Q<S THEN 381
- 371 GOTO 331
- 381 PRINT "HURRAY! YOU WIN $";C:B=B+C
- 391 IF B>=10000 GOTO 471
- 401 GOTO 331
- 411 INPUT "DOES YOU ACE COUNT AS 1 OR 14";A
- 421 IF A=1 OR A=14 GOTO 441
- 431 PRINT "ILLEGAL VALUE":GOTO 411
- 441 RETURN
- 451 PRINT "YOU ARE ALL OUT OF MONEY, BRIGHTEYES."
- 461 END
- 471 PRINT "WOW! YOU HAVE BROKEN THE BANK WITH $";B$
- 481 END
-